home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / Duck Report / _SETUP.1 / About.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-03-14  |  2.0 KB  |  90 lines
  1. unit About;
  2.  
  3. interface
  4.  
  5. uses
  6.     Windows, ComCtrls, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, StdCtrls, dclDQuery;
  8.  
  9. type
  10.   TFormAbout = class(TForm)
  11.     Image1: TImage;
  12.     Image2: TImage;
  13.     BBOK: TButton;
  14.     Bevel1: TBevel;
  15.     LVersion: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     procedure BBOKClick(Sender: TObject);
  19.     procedure FormPaint(Sender: TObject);
  20.     procedure FormShow(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.   private
  23.   public
  24.         Procedure    NoButton;
  25.   end;
  26.  
  27. var
  28.   FormAbout: TFormAbout;
  29.  
  30. implementation
  31. {$R *.DFM}
  32. Procedure TFormAbout.FormCreate(Sender: TObject);
  33. Var
  34.     St:    String;
  35. Begin
  36.     St    := 'Version ' + DQ_Display_VERSION;
  37.     St    := St + ' Copyright (c) 1998';
  38.     LVersion.Caption    := St;
  39. End;
  40. Procedure TFormAbout.NoButton;
  41. Begin
  42.   BBOK.Visible    := FALSE;
  43.   Caption            := '';
  44.   BorderIcons        := [];
  45.   BorderStyle        := bsNone;
  46.   Height            := 288;
  47. {  BorderStyle        := bsNone;}
  48. End;
  49. Procedure TFormAbout.FormShow(Sender: TObject);
  50. Begin
  51. {    Width        := 336;
  52. //    Height    := 312;}
  53. End;
  54. Procedure TFormAbout.BBOKClick(Sender: TObject);
  55. Begin
  56.     Close;
  57.   ModalResult    := mrOK;
  58. End;
  59. Procedure TFormAbout.FormPaint(Sender: TObject);
  60. Var
  61.     Rc:    TRect;
  62.   Procedure    DQPolyLineToColor (Canvas: TCanvas; TRc: TRect;
  63.                 clColor1, clColor2: TColor);
  64.     Var
  65.         clOldColor:    TColor;
  66.     Begin
  67.         clOldColor    := Canvas.Pen.Color;
  68.       Canvas.Pen.Color    := clColor1;
  69.       Canvas.MoveTo (TRc.Left, TRc.Bottom);
  70.       Canvas.LineTo (TRc.Left, TRc.Top);
  71.       Canvas.LineTo (TRc.Right, TRc.Top);
  72.  
  73.       Canvas.Pen.Color    := clColor2;
  74.       Canvas.LineTo (TRc.Right, TRc.Bottom);
  75.       Canvas.LineTo (TRc.Left, TRc.Bottom);
  76.       Canvas.Pen.Color    := clOldColor;
  77.     End;
  78. Begin
  79.     if BorderStyle <> bsNone Then Exit;
  80.     Rc    := ClientRect;
  81.     Dec (Rc.Right);
  82.   Dec (Rc.Bottom);
  83.     DQPolyLineToColor (Canvas, Rc, clSilver, clBlack);
  84.   InflateRect(Rc, -1, -1);
  85.     DQPolyLineToColor (Canvas, Rc, clWhite, clGray);
  86. End;
  87.  
  88.  
  89. End.
  90.